﻿Imports MICROFORMA.BEL
Imports MICROFORMA.DAL

Public Class LoteBL

    Private _Lote_DA = New LoteDA

    Public Function List_Id(ByVal Id As Integer) As DataTable
        Return _Lote_DA.List_Id(Id)
    End Function

    Public Function List() As DataTable
        Return _Lote_DA.List
    End Function

    Public Function GetList() As DataTable
        Return _Lote_DA.GetList
    End Function
   
    Public Function Add(ByVal _lote_BE As LoteBE) As String
        If _Lote_DA.Add(_lote_BE) = "OK" Then
            Return "OK"
        End If
    End Function
    Public Function GetListToScan() As DataTable
        Return _Lote_DA.getlistToScan
    End Function
    Public Function Edit(ByVal _lote_BE As LoteBE) As String
        If _Lote_DA.Edit(_lote_BE) = "OK" Then
            Return "OK"
        End If
    End Function

    Public Function Delete(ByVal Id As Integer) As String
        If _Lote_DA.Delete(Id) = "OK" Then
            Return "OK"
        End If
    End Function

    Public Function getIdLastRecord() As Integer
        Return _Lote_DA.getIdLastRecord
    End Function

End Class
